clear all;
year=87:1:96;

correct_baseline=[0.370370370370370	0.632352941176471	0.682352941176471	0.701923076923077	0.646408839779006	0.666666666666667	0.709570957095710	0.750000000000000	0.777486910994764	0.812064965197216];
correct_seq=[0.370370370370370	0.632352941176471	0.682352941176471	0.701923076923077	0.646408839779006	0.666666666666667	0.709570957095710	0.750000000000000	0.777486910994764	0.812064965197216];
overlap=[1 1 1 1 1 1 1 1 1 1];

fig=figure('color', [1 1 1 ], 'Position',[200 200 800 340]);
subplot(1,2,1)
axis square
plot(year, correct_baseline, '-b' , 'LineWidth', 2 );
hold on
plot(year, correct_seq, '--k' , 'LineWidth', 2 );

title( 'A. Correct prediction ratio', 'FontSize',15,'Interpreter','Latex');
xlabel('year', 'FontSize',12,'Interpreter','Latex');
ylabel('correct prediction ratio', 'FontSize',12,'Interpreter','Latex');
legend('baseline','sequential choice','Interpreter','Latex','location','northwest');
xlim([87 96]);
ylim([0.3,0.9]);
yticks(0.3:0.1:0.9)
set(gca,'FontSize',12);
%  get(handle,'position')

subplot(1,2,2)
axis square
plot(year, overlap.*100, '-b' , 'LineWidth', 2 );

title( [{'B. Fraction of new branches opened'}, {'in the same markets'}], 'FontSize',15,'Interpreter','Latex');
xlabel('year', 'FontSize',12,'Interpreter','Latex');
ylabel('fraction of new branches (\%)', 'FontSize',12,'Interpreter','Latex');
xlim([87 96]);
ylim([92 100]);
yticks(92:2:100)
set(gca,'FontSize',12);
%  get(handle,'position')